program Project1; //Zadanie 4.8

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

  type
    macierz = array[1..n, 1..n] of integer;

var
  i, j : integer;
  a, b : macierz;

begin
  {wpisywanie do tablicy a}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=j;
        end; {j}
    end;   {i}   {Koniec wpisywania}

  {przepisywanie do tablicy b}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          b[i,j]:=a[j,i];
        end; {j}
    end;   {i}   {Koniec przepisywania}

  Writeln('Wyswietlenie tablicy a:');

  {Wyswietlenie zawartosci tablicy a}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(a[i,j]:2,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy a}

   Writeln;
   Writeln('Wyswietlenie tablicy b:');

  {Wyswietlenie zawartosci tablicy b}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(b[i,j]:2,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy b}

  Readln; //czeka na nacisniecie dowolnego klawisza
end.


